home *** CD-ROM | disk | FTP | other *** search
/ CD Fun House 7 / CD FunHouse 7 For The Macintosh (Wayzata)(1992).iso / • Interesting Stuff • / Cartoon sfx 2 ••• / Cartoon sfx 2 еее / card_2862.txt < prev    next >
Text File  |  1989-08-01  |  13KB  |  535 lines
  1. -- card: 2862 from stack: in
  2. -- bmap block id: 3557
  3. -- flags: 0000
  4. -- background id: 2593
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: A004
  11. -- rect: left=79 top=123 right=142 bottom=248
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Hotfoot
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   get the id of me
  23.   put it into myid
  24.   get the name of me
  25.   delete word 1 of it
  26.   delete word 1 of it
  27.   put it into myname
  28.   put "PLAY" && myname into myname
  29.   set hilite of button myid to TRUE
  30.   do myname
  31.   wait until the sound is "done"
  32.   set hilite of button myid to FALSE
  33. end mouseUp
  34.  
  35.  
  36.  
  37. -- part 2 (button)
  38. -- low flags: 00
  39. -- high flags: A004
  40. -- rect: left=79 top=141 right=160 bottom=248
  41. -- title width / last selected line: 0
  42. -- icon id / first selected line: 0 / 0
  43. -- text alignment: 1
  44. -- font id: 0
  45. -- text size: 12
  46. -- style flags: 0
  47. -- line height: 16
  48. -- part name: My own strength
  49. ----- HyperTalk script -----
  50. on mouseUp
  51.   get the id of me
  52.   put it into myid
  53.   get the name of me
  54.   delete word 1 of it
  55.   delete word 1 of it
  56.   put it into myname
  57.   put "PLAY" && myname into myname
  58.   set hilite of button myid to TRUE
  59.   do myname
  60.   wait until the sound is "done"
  61.   set hilite of button myid to FALSE
  62. end mouseUp
  63.  
  64.  
  65.  
  66. -- part 3 (button)
  67. -- low flags: 00
  68. -- high flags: A004
  69. -- rect: left=79 top=159 right=178 bottom=248
  70. -- title width / last selected line: 0
  71. -- icon id / first selected line: 0 / 0
  72. -- text alignment: 1
  73. -- font id: 0
  74. -- text size: 12
  75. -- style flags: 0
  76. -- line height: 16
  77. -- part name: Now here's something
  78. ----- HyperTalk script -----
  79. on mouseUp
  80.   get the id of me
  81.   put it into myid
  82.   get the name of me
  83.   delete word 1 of it
  84.   delete word 1 of it
  85.   put it into myname
  86.   put "PLAY" && myname into myname
  87.   set hilite of button myid to TRUE
  88.   do myname
  89.   wait until the sound is "done"
  90.   set hilite of button myid to FALSE
  91. end mouseUp
  92.  
  93.  
  94.  
  95. -- part 4 (button)
  96. -- low flags: 00
  97. -- high flags: A004
  98. -- rect: left=79 top=177 right=196 bottom=248
  99. -- title width / last selected line: 0
  100. -- icon id / first selected line: 0 / 0
  101. -- text alignment: 1
  102. -- font id: 0
  103. -- text size: 12
  104. -- style flags: 0
  105. -- line height: 16
  106. -- part name: Oh Prunella
  107. ----- HyperTalk script -----
  108. on mouseUp
  109.   get the id of me
  110.   put it into myid
  111.   get the name of me
  112.   delete word 1 of it
  113.   delete word 1 of it
  114.   put it into myname
  115.   put "PLAY" && myname into myname
  116.   set hilite of button myid to TRUE
  117.   do myname
  118.   wait until the sound is "done"
  119.   set hilite of button myid to FALSE
  120. end mouseUp
  121.  
  122.  
  123.  
  124. -- part 5 (button)
  125. -- low flags: 00
  126. -- high flags: A004
  127. -- rect: left=79 top=195 right=214 bottom=248
  128. -- title width / last selected line: 0
  129. -- icon id / first selected line: 0 / 0
  130. -- text alignment: 1
  131. -- font id: 0
  132. -- text size: 12
  133. -- style flags: 0
  134. -- line height: 16
  135. -- part name: Presto!
  136. ----- HyperTalk script -----
  137. on mouseUp
  138.   get the id of me
  139.   put it into myid
  140.   get the name of me
  141.   delete word 1 of it
  142.   delete word 1 of it
  143.   put it into myname
  144.   put "PLAY" && myname into myname
  145.   set hilite of button myid to TRUE
  146.   do myname
  147.   wait until the sound is "done"
  148.   set hilite of button myid to FALSE
  149. end mouseUp
  150.  
  151.  
  152.  
  153. -- part 6 (button)
  154. -- low flags: 00
  155. -- high flags: A004
  156. -- rect: left=79 top=213 right=232 bottom=248
  157. -- title width / last selected line: 0
  158. -- icon id / first selected line: 0 / 0
  159. -- text alignment: 1
  160. -- font id: 0
  161. -- text size: 12
  162. -- style flags: 0
  163. -- line height: 16
  164. -- part name: Shaken up
  165. ----- HyperTalk script -----
  166. on mouseUp
  167.   get the id of me
  168.   put it into myid
  169.   get the name of me
  170.   delete word 1 of it
  171.   delete word 1 of it
  172.   put it into myname
  173.   put "PLAY" && myname into myname
  174.   set hilite of button myid to TRUE
  175.   do myname
  176.   wait until the sound is "done"
  177.   set hilite of button myid to FALSE
  178. end mouseUp
  179.  
  180.  
  181.  
  182. -- part 7 (button)
  183. -- low flags: 00
  184. -- high flags: A004
  185. -- rect: left=79 top=231 right=250 bottom=248
  186. -- title width / last selected line: 0
  187. -- icon id / first selected line: 0 / 0
  188. -- text alignment: 1
  189. -- font id: 0
  190. -- text size: 12
  191. -- style flags: 0
  192. -- line height: 16
  193. -- part name: Telegram
  194. ----- HyperTalk script -----
  195. on mouseUp
  196.   get the id of me
  197.   put it into myid
  198.   get the name of me
  199.   delete word 1 of it
  200.   delete word 1 of it
  201.   put it into myname
  202.   put "PLAY" && myname into myname
  203.   set hilite of button myid to TRUE
  204.   do myname
  205.   wait until the sound is "done"
  206.   set hilite of button myid to FALSE
  207. end mouseUp
  208.  
  209.  
  210.  
  211. -- part 8 (button)
  212. -- low flags: 00
  213. -- high flags: A004
  214. -- rect: left=252 top=123 right=142 bottom=421
  215. -- title width / last selected line: 0
  216. -- icon id / first selected line: 0 / 0
  217. -- text alignment: 1
  218. -- font id: 0
  219. -- text size: 12
  220. -- style flags: 0
  221. -- line height: 16
  222. -- part name: That's all folks!
  223. ----- HyperTalk script -----
  224. on mouseUp
  225.   get the id of me
  226.   put it into myid
  227.   get the name of me
  228.   delete word 1 of it
  229.   delete word 1 of it
  230.   put it into myname
  231.   put "PLAY" && myname into myname
  232.   set hilite of button myid to TRUE
  233.   do myname
  234.   wait until the sound is "done"
  235.   set hilite of button myid to FALSE
  236. end mouseUp
  237.  
  238.  
  239.  
  240. -- part 9 (button)
  241. -- low flags: 00
  242. -- high flags: A004
  243. -- rect: left=252 top=141 right=160 bottom=421
  244. -- title width / last selected line: 0
  245. -- icon id / first selected line: 0 / 0
  246. -- text alignment: 1
  247. -- font id: 0
  248. -- text size: 12
  249. -- style flags: 0
  250. -- line height: 16
  251. -- part name: WAhaha
  252. ----- HyperTalk script -----
  253. on mouseUp
  254.   get the id of me
  255.   put it into myid
  256.   get the name of me
  257.   delete word 1 of it
  258.   delete word 1 of it
  259.   put it into myname
  260.   put "PLAY" && myname into myname
  261.   set hilite of button myid to TRUE
  262.   do myname
  263.   wait until the sound is "done"
  264.   set hilite of button myid to FALSE
  265. end mouseUp
  266.  
  267.  
  268.  
  269. -- part 10 (button)
  270. -- low flags: 00
  271. -- high flags: A004
  272. -- rect: left=252 top=159 right=178 bottom=421
  273. -- title width / last selected line: 0
  274. -- icon id / first selected line: 0 / 0
  275. -- text alignment: 1
  276. -- font id: 0
  277. -- text size: 12
  278. -- style flags: 0
  279. -- line height: 16
  280. -- part name: Wahoo
  281. ----- HyperTalk script -----
  282. on mouseUp
  283.   get the id of me
  284.   put it into myid
  285.   get the name of me
  286.   delete word 1 of it
  287.   delete word 1 of it
  288.   put it into myname
  289.   put "PLAY" && myname into myname
  290.   set hilite of button myid to TRUE
  291.   do myname
  292.   wait until the sound is "done"
  293.   set hilite of button myid to FALSE
  294. end mouseUp
  295.  
  296.  
  297.  
  298. -- part 11 (button)
  299. -- low flags: 00
  300. -- high flags: A004
  301. -- rect: left=252 top=177 right=196 bottom=421
  302. -- title width / last selected line: 0
  303. -- icon id / first selected line: 0 / 0
  304. -- text alignment: 1
  305. -- font id: 0
  306. -- text size: 12
  307. -- style flags: 0
  308. -- line height: 16
  309. -- part name: What's up Doc?
  310. ----- HyperTalk script -----
  311. on mouseUp
  312.   get the id of me
  313.   put it into myid
  314.   get the name of me
  315.   delete word 1 of it
  316.   delete word 1 of it
  317.   put it into myname
  318.   put "PLAY" && myname into myname
  319.   set hilite of button myid to TRUE
  320.   do myname
  321.   wait until the sound is "done"
  322.   set hilite of button myid to FALSE
  323. end mouseUp
  324.  
  325.  
  326.  
  327. -- part 12 (button)
  328. -- low flags: 00
  329. -- high flags: A004
  330. -- rect: left=252 top=195 right=214 bottom=421
  331. -- title width / last selected line: 0
  332. -- icon id / first selected line: 0 / 0
  333. -- text alignment: 1
  334. -- font id: 0
  335. -- text size: 12
  336. -- style flags: 0
  337. -- line height: 16
  338. -- part name: Yer despicable
  339. ----- HyperTalk script -----
  340. on mouseUp
  341.   get the id of me
  342.   put it into myid
  343.   get the name of me
  344.   delete word 1 of it
  345.   delete word 1 of it
  346.   put it into myname
  347.   put "PLAY" && myname into myname
  348.   set hilite of button myid to TRUE
  349.   do myname
  350.   wait until the sound is "done"
  351.   set hilite of button myid to FALSE
  352. end mouseUp
  353.  
  354.  
  355.  
  356. -- part 13 (button)
  357. -- low flags: 00
  358. -- high flags: A004
  359. -- rect: left=252 top=213 right=232 bottom=421
  360. -- title width / last selected line: 0
  361. -- icon id / first selected line: 0 / 0
  362. -- text alignment: 1
  363. -- font id: 0
  364. -- text size: 12
  365. -- style flags: 0
  366. -- line height: 16
  367. -- part name: You rang?
  368. ----- HyperTalk script -----
  369. on mouseUp
  370.   get the id of me
  371.   put it into myid
  372.   get the name of me
  373.   delete word 1 of it
  374.   delete word 1 of it
  375.   put it into myname
  376.   put "PLAY" && myname into myname
  377.   set hilite of button myid to TRUE
  378.   do myname
  379.   wait until the sound is "done"
  380.   set hilite of button myid to FALSE
  381. end mouseUp
  382.  
  383.  
  384.  
  385. -- part 14 (button)
  386. -- low flags: 00
  387. -- high flags: A004
  388. -- rect: left=252 top=231 right=250 bottom=421
  389. -- title width / last selected line: 0
  390. -- icon id / first selected line: 0 / 0
  391. -- text alignment: 1
  392. -- font id: 0
  393. -- text size: 12
  394. -- style flags: 0
  395. -- line height: 16
  396. -- part name: You said it
  397. ----- HyperTalk script -----
  398. on mouseUp
  399.   get the id of me
  400.   put it into myid
  401.   get the name of me
  402.   delete word 1 of it
  403.   delete word 1 of it
  404.   put it into myname
  405.   put "PLAY" && myname into myname
  406.   set hilite of button myid to TRUE
  407.   do myname
  408.   wait until the sound is "done"
  409.   set hilite of button myid to FALSE
  410. end mouseUp
  411.  
  412.  
  413.  
  414. -- part 15 (button)
  415. -- low flags: 00
  416. -- high flags: A000
  417. -- rect: left=77 top=266 right=322 bottom=148
  418. -- title width / last selected line: 0
  419. -- icon id / first selected line: 32670 / 32670
  420. -- text alignment: 1
  421. -- font id: 0
  422. -- text size: 12
  423. -- style flags: 0
  424. -- line height: 16
  425. -- part name: Play 'em all
  426. ----- HyperTalk script -----
  427. on mouseUp
  428.   repeat with count=1 to 14
  429.     get the location of button count
  430.     click at it
  431.     wait until the sound is "done"
  432.   end repeat
  433. end mouseUp
  434.  
  435.  
  436.  
  437. -- part 16 (button)
  438. -- low flags: 00
  439. -- high flags: A000
  440. -- rect: left=406 top=269 right=324 bottom=477
  441. -- title width / last selected line: 0
  442. -- icon id / first selected line: 1019 / 1019
  443. -- text alignment: 1
  444. -- font id: 0
  445. -- text size: 12
  446. -- style flags: 0
  447. -- line height: 16
  448. -- part name: Install snds...
  449. ----- HyperTalk script -----
  450. on mouseUp
  451.   hide card field "About"
  452.   play "Wahoo"
  453.   answer "Notice: the ResCopy XCMD is Copyrighted.." with "Continue"
  454.   answer "..by Apple Computer and may not be sold..." with "Continue"
  455.   answer "... for money." with "Cancel" or "ResCopy"
  456.   if it is "Cancel" then exit mouseUp
  457.   ResCopy
  458. end mouseUp
  459.  
  460.  
  461.  
  462. -- part 17 (button)
  463. -- low flags: 00
  464. -- high flags: A000
  465. -- rect: left=160 top=266 right=322 bottom=231
  466. -- title width / last selected line: 0
  467. -- icon id / first selected line: 2478 / 2478
  468. -- text alignment: 1
  469. -- font id: 0
  470. -- text size: 12
  471. -- style flags: 0
  472. -- line height: 16
  473. -- part name: About....
  474. ----- HyperTalk script -----
  475. on mouseUp
  476.   play "WAhaha"
  477.   show card field "About"
  478. end mouseUp
  479.  
  480.  
  481.  
  482. -- part 18 (button)
  483. -- low flags: 00
  484. -- high flags: A000
  485. -- rect: left=238 top=266 right=322 bottom=309
  486. -- title width / last selected line: 0
  487. -- icon id / first selected line: 1011 / 1011
  488. -- text alignment: 1
  489. -- font id: 0
  490. -- text size: 12
  491. -- style flags: 0
  492. -- line height: 16
  493. -- part name: Home
  494. ----- HyperTalk script -----
  495. on mouseUp
  496.   play "You rang?"
  497.   wait until the sound is "done"
  498.   visual scroll left to gray
  499.   visual venetian blinds to inverse
  500.   visual iris close to black
  501.   visual scroll right to white
  502.   visual iris open to inverse
  503.   visual barn door close
  504.   go home
  505. end mouseUp
  506.  
  507.  
  508.  
  509. -- part 19 (field)
  510. -- low flags: 81
  511. -- high flags: 0004
  512. -- rect: left=51 top=119 right=326 bottom=472
  513. -- title width / last selected line: 0
  514. -- icon id / first selected line: 0 / 0
  515. -- text alignment: 0
  516. -- font id: 3
  517. -- text size: 9
  518. -- style flags: 0
  519. -- line height: 12
  520. -- part name: About
  521. ----- HyperTalk script -----
  522. on mouseUp
  523.   play "Presto!"
  524.   hide card field "About"
  525. end mouseUp
  526.  
  527.  
  528.  
  529. -- part contents for card part 19
  530. ----- text -----
  531. This stack contains 14 snd resources which can be played in HyperCard and which can be moved to your own stacks. Press the "Install snds..." button to use Steve Maller's ResCopy XCMD to install snds without leaving this stack. The ResCopy XCMD is ¬© by Apple Computer, Inc. and may not be sold for money. See the HyperCard help stack or Danny Goodman's book for information on using sound in HyperCard stacks.
  532.  
  533. This stack is brought to you as FREEWARE from your Uncle Davy (David Rakowski, 60 Gorham Ave. #6, Brookline, MA 02146). These sounds and this stack are in the public domain and may be given or distributed to anyone in any form whatsoever.  The snd resources in this stack and in Cartoon Sfx 1 were converted from a very nice collection of SoundCap files on the Boston Computer Society's "Music Disk D" from their shareware/public domain collection. If you simply feel you must pay someone for these great sounds, send a tax-deductible donation to the Boston Computer Society, One Center Plaza, Boston, MA 02108.
  534.  
  535. Click on this field to make it go away.